inherited fmCableDropCalc: TfmCableDropCalc
  Left = 617
  Top = 420
  Caption = 'yep!'
  ClientHeight = 316
  ClientWidth = 542
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object laP1: TLabel
    Left = 304
    Top = 72
    Width = 21
    Height = 13
    Caption = 'laP1'
  end
  object laPwr: TLabel
    Left = 304
    Top = 116
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object laLength: TLabel
    Left = 304
    Top = 200
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object laResult: TLabel
    Left = 492
    Top = 24
    Width = 38
    Height = 13
    Caption = 'laResult'
  end
  object laCableRes: TLabel
    Left = 492
    Top = 112
    Width = 38
    Height = 13
    Caption = 'laResult'
  end
  object laCsec: TLabel
    Left = 176
    Top = 52
    Width = 32
    Height = 13
    Caption = 'laCsec'
  end
  object laVolt: TLabel
    Left = 308
    Top = 28
    Width = 26
    Height = 13
    Caption = 'laVolt'
  end
  object laCurr: TLabel
    Left = 304
    Top = 156
    Width = 27
    Height = 13
    Caption = 'laCurr'
  end
  object Bevel1: TBevel
    Left = 348
    Top = 8
    Width = 5
    Height = 297
  end
  object laQvar: TLabel
    Left = 492
    Top = 156
    Width = 38
    Height = 13
    Caption = 'laResult'
  end
  object laVout: TLabel
    Left = 492
    Top = 68
    Width = 38
    Height = 13
    Caption = 'laResult'
  end
  object laTemp: TLabel
    Left = 304
    Top = 244
    Width = 35
    Height = 13
    Caption = 'laTemp'
  end
  object rgSelector: TRadioGroup
    Left = 4
    Top = 4
    Width = 161
    Height = 105
    Caption = 'rgSelector'
    Items.Strings = (
      'dcsingle'
      'dcline'
      'ac1ph'
      'ac3ph')
    TabOrder = 0
    OnClick = rgSelectorClick
  end
  object edP1: TLabeledEdit
    Left = 176
    Top = 68
    Width = 121
    Height = 21
    EditLabel.Width = 25
    EditLabel.Height = 13
    EditLabel.Caption = 'edP1'
    TabOrder = 3
    OnChange = DoFieldChange
    OnKeyPress = DoPosFloatKeyPress
  end
  object edPwr: TLabeledEdit
    Left = 196
    Top = 112
    Width = 101
    Height = 21
    EditLabel.Width = 30
    EditLabel.Height = 13
    EditLabel.Caption = 'edPwr'
    TabOrder = 5
    OnChange = DoFieldChange
    OnKeyPress = DoPosFloatKeyPress
  end
  object edLength: TLabeledEdit
    Left = 176
    Top = 196
    Width = 121
    Height = 21
    EditLabel.Width = 45
    EditLabel.Height = 13
    EditLabel.Caption = 'edLength'
    TabOrder = 8
    OnChange = DoFieldChange
    OnKeyPress = DoPosFloatKeyPress
  end
  object edCosfi: TLabeledEdit
    Left = 176
    Top = 284
    Width = 121
    Height = 21
    EditLabel.Width = 35
    EditLabel.Height = 13
    EditLabel.Caption = 'edCosfi'
    TabOrder = 9
    OnChange = DoFieldChange
    OnKeyPress = DoPosFloatKeyPress
  end
  object edResult: TLabeledEdit
    Left = 364
    Top = 20
    Width = 121
    Height = 21
    EditLabel.Width = 25
    EditLabel.Height = 13
    EditLabel.Caption = 'edP4'
    TabOrder = 10
  end
  object edCableRes: TLabeledEdit
    Left = 364
    Top = 108
    Width = 121
    Height = 21
    EditLabel.Width = 25
    EditLabel.Height = 13
    EditLabel.Caption = 'edP4'
    ReadOnly = True
    TabOrder = 11
  end
  object cbCsec: TComboBox
    Left = 176
    Top = 68
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 2
    OnChange = cbCsecChange
  end
  object edVolt: TLabeledEdit
    Left = 176
    Top = 24
    Width = 121
    Height = 21
    EditLabel.Width = 25
    EditLabel.Height = 13
    EditLabel.Caption = 'edP2'
    TabOrder = 1
    OnChange = DoFieldChange
    OnKeyPress = DoPosFloatKeyPress
  end
  object edCurr: TLabeledEdit
    Left = 196
    Top = 152
    Width = 101
    Height = 21
    EditLabel.Width = 30
    EditLabel.Height = 13
    EditLabel.Caption = 'edPwr'
    TabOrder = 7
    OnChange = DoFieldChange
    OnKeyPress = DoPosFloatKeyPress
  end
  object rbUsePwr: TRadioButton
    Left = 176
    Top = 112
    Width = 17
    Height = 17
    Checked = True
    TabOrder = 4
    TabStop = True
    OnClick = rbUsePwrClick
  end
  object rbUseCurr: TRadioButton
    Left = 176
    Top = 152
    Width = 17
    Height = 17
    TabOrder = 6
    OnClick = rbUsePwrClick
  end
  object edQvar: TLabeledEdit
    Left = 364
    Top = 152
    Width = 121
    Height = 21
    EditLabel.Width = 25
    EditLabel.Height = 13
    EditLabel.Caption = 'edP4'
    ReadOnly = True
    TabOrder = 12
  end
  object edVout: TLabeledEdit
    Left = 364
    Top = 64
    Width = 121
    Height = 21
    EditLabel.Width = 25
    EditLabel.Height = 13
    EditLabel.Caption = 'edP4'
    ReadOnly = True
    TabOrder = 13
  end
  object edTemp: TLabeledEdit
    Left = 176
    Top = 240
    Width = 121
    Height = 21
    EditLabel.Width = 45
    EditLabel.Height = 13
    EditLabel.Caption = 'edLength'
    TabOrder = 14
    Text = '35'
    OnChange = DoFieldChange
    OnKeyPress = DoFloatKeyPress
  end
  object rgMaterial: TRadioGroup
    Left = 4
    Top = 112
    Width = 161
    Height = 89
    Caption = 'rgMaterial'
    Items.Strings = (
      'copper'
      'aluminium')
    TabOrder = 15
    OnClick = DoFieldChange
  end
end
